home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / Flash Taskbar.ttp < prev    next >
INI File  |  2005-03-15  |  2KB  |  60 lines
  1. [SETTINGS]
  2. category=Windows Tweaks::Start Menu and Taskbar::Flash Taskbar
  3. Caption=Flash Taskbar
  4. OSVERSION=2000,XP,2003
  5. version=1.0
  6. #=When an application needs your attention it steals the focus from the application in which you're currently working. 
  7. #=The settings in this page will prevent that scenario by causing applications to flash their taskbar buttons to get your attention rather than stealing focus from the application in the foreground.
  8. #=\nSet 'Number of flashes' to the number of times the taskbar button should flash. Setting it to 0 causes the taskbar button to flash until you click it.
  9. Author=
  10.  
  11.  
  12. [INTERFACE]
  13. TYPE=multi
  14. Text0=Prevent applications from stealing focus
  15. type0=check
  16. Text1=Number of flashes
  17. type1=spin
  18. style1=0,100
  19.  
  20.  
  21. [SCRIPT]
  22.  
  23. Sub OnInit() 
  24. Dim i,j
  25.    i=RegReadValue("HKCU\Control Panel\Desktop\ForegroundLockTimeout") 'Dwrd,200000 def
  26.    'i = CLng("&h"&i)
  27.    If i<>0 then 
  28.       CheckItem 0,true     
  29.       j=RegReadValue("HKCU\Control Panel\Desktop\ForegroundFlashCount")  'Dwrd,3default
  30.      ' j = CLng("&h"&Left(j,2))
  31.    'if j is zero, then flash infinitely
  32.       SetItemText 1, j
  33.    else 
  34.       EnableItem 1, false
  35.    end If
  36.       
  37. End Sub
  38.  
  39. Sub OnApply(x,y)
  40. Dim i
  41.  
  42.  if IsItemChecked(0)=true then
  43.   RegWriteValueD "HKCU\Control Panel\Desktop\ForegroundLockTimeout",200000
  44.  else
  45.   RegWriteValueD "HKCU\Control Panel\Desktop\ForegroundLockTimeout",0
  46. end if
  47.  
  48.  i=GetItemText(1)
  49.  if IsEmpty(i) then i = 3
  50.  RegWriteValueD "HKCU\Control Panel\Desktop\ForegroundFlashCount",i
  51. End Sub
  52.  
  53. Sub OnEvent (x,y)
  54.  
  55.  if IsItemChecked(0)=true then
  56.   EnableItem 1, true
  57.  else
  58.   EnableItem 1, false
  59. end if
  60. End Sub